% This file sets up the age-productivity profile during years employed
%
%

avec = 0+0*log(linspace(1,10,80)) ;

% pooled a
avec(1:53)= 0+1*[0
.0697079
.1478519
.2306509
.2889566
.3773813
.4492846
.5213528
.5637093
.619072
.650218
.6986713
.7280397
.7687368
.7760391
.8097324
.8174963
.8304996
.8465195
.8523188
.8459063
.8654766
.8582106
.8588905
.8652563
.8575888
.8650837
.8590984
.8576794
.8681412
.8607769
.8653736
.8559561
.8627195
.8521557
.8510475
.8358202
.8176985
.7935934
.7843189
.762537
.6569986
.6149778
.5983419
.5865021
.5006762
.5048475
.3329544
.3664341
.3105631
.3043814
.3232927
.2323236] ;

avec = exp(avec) ;
for ii=54:length(avec)
    avec(ii) = avec(ii-1)*0.75 ;
end

if flata ; avec = (avec>0)*1.99958076063139 ; end